home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / KENKA2.HAS < prev    next >
Encoding:
Text File  |  1998-09-01  |  2.0 KB  |  102 lines
  1. *----------------------------------
  2. *
  3. *    îûë▄é╠û┘Īÿ^
  4. *
  5. *    By Shiroh Nakaya
  6. *
  7. *----------------------------------
  8.  
  9.     .include    B:\INCLUDE\DOSCALL.MAC
  10.     .include    B:\INCLUDE\IOCSCALL.MAC
  11.     .include    OSU.H
  12.  
  13.     .cpu    68000
  14.  
  15. *-----------------------------------
  16. *    Ælòsô«é╠âîâWâXâ^
  17. *
  18. * é`éTüüâLâââëâNâ^è╟ù¥âfü[â^é╠özù±
  19. *
  20. *-----------------------------------
  21. *    èOòöâéâWâàü[âï
  22. *-----------------------------------
  23. *    âVâXâeâÇ
  24. *-----------------------------------
  25.     .xref    data_load
  26.     .xref    game_main
  27.  
  28.     .text
  29.     .even
  30. *--------------------------------
  31. *    éléüéëéÄü@éqéÅéòéöéëéÄéà
  32. *
  33. start:
  34.     lea.l    mysp,sp                * âXâ^âbâNé╠èmò█
  35.  
  36.     lea.l    16(a0),a0            * ù]îvé╚âüâéâèâuâìâbâNé╠ë≡ò·
  37.     suba.l    a0,a1                * é┼é╚éóé╞_apic_loadé¬Ägéªé╚éó
  38.  
  39.     move.l    a1,-(sp)
  40.     move.l    a0,-(sp)
  41.     DOS    _SETBLOCK
  42.     addq.l    #8,sp
  43.  
  44.     move.w    #14,d1                * éQéTéUüûéQéTéUü@éUéTéTéRéUÉFâéü[âh
  45. *    move.w    #12,d1
  46.     IOCS    _CRTMOD
  47.     IOCS    _G_CLR_ON            * éféÆéüéÉéêéëéâü@énéÄ
  48.     IOCS    _B_CUROFF            * âJü[â\âïò\Īénéeée
  49.     moveq.l    #0,d1                * â\âtâgâLü[â{ü[âhö±ò\Ī
  50.     IOCS    _SKEY_MOD
  51.     IOCS    _SP_INIT            * âXâvâëâCâgÅëè·ë╗
  52.     IOCS    _SP_ON
  53.     
  54.     clr.l    -(sp)
  55.     DOS    _SUPER                * âXü[âpü[âoâCâUü[âéü[âhé┼ô╦é┴æûéΘ
  56.     move.l    d0,(sp)
  57.  
  58.     movea.l    #$00e82500,a0            * ârâfâIâRâôâgâìü[âëÉ▌ÆΦ
  59.     move.w    (a0),v_c_str            * ìíî╗ì▌é╠É▌ÆΦé≡ò█æ╢
  60.     move.w    #$12e4,(a0)            * TEXT > SPRITE > GRAPHIC
  61.  
  62.     move.b    #1,$00e92001            * é`écéoébélÆΓÄ~
  63.  
  64.     jsr    data_load            * âfü[â^âìü[âhé¿éµé╤Åëè·ë╗
  65.  
  66.     J_INIT                    * âWâçâCâXâeâBâbâNÅëè·ë╗
  67.  
  68.     jsr    game_main            * âQü[âÇû{æ╠
  69.  
  70. exit_skip:
  71.  
  72.     moveq.l    #0,d1                * âLü[âoâbâtâ@âNâèâA
  73.     IOCS    _KEY_INIT
  74.  
  75.     move.b    #1,$00e92001            * é`écéoébélÆΓÄ~
  76.  
  77.     move.w    v_c_str,$00e82500        * ârâfâIâRâôâgâìü[âëÉ▌ÆΦé≡î│é╔û▀é╖
  78.  
  79.     DOS    _SUPER                * âåü[âUü[âéü[âhé╔û▀é╖
  80.     addq.l    #4,sp
  81.  
  82.     IOCS    _B_CURON            * âJü[â\âïò\Īéném
  83.     moveq.l    #-1,d1                * â\âtâgâLü[â{ü[âhò\Ī
  84.     IOCS    _SKEY_MOD
  85.  
  86.     move.w    #16,d1                * éVéUéWüûéTéPéQ
  87.     IOCS    _CRTMOD
  88.  
  89.     DOS    _EXIT
  90. *---------------------------------
  91.     .bss
  92. v_c_str:
  93.     .ds.w    1
  94. *---------------------------------
  95.     .stack
  96.     .even
  97. mystack:
  98.     .ds.l    1024
  99. mysp:
  100. *--------------------------------
  101.     .end    start
  102.